Previsão do Tempo e Mercado Financeiro

# API para cotação do Dólar
url_dolar <- "https://economia.awesomeapi.com.br/json/last/USD-BRL"
response_dolar <- GET(url_dolar)
dolar_data <- fromJSON(content(response_dolar, "text"))

# Verifique se os dados foram retornados corretamente
if (!is.null(dolar_data$USDBRL)) {
  dolar_value <- dolar_data$USDBRL$bid
  
  # Criando gráfico para a cotação do Dólar
  data_dolar <- data.frame(dias = 1:7, valor_dolar = c(5.20, 5.25, 5.30, 5.35, 5.50, 5.45, 5.55))
  fig_dolar <- plot_ly(data_dolar, x = ~dias, y = ~valor_dolar, type = 'scatter', mode = 'lines+markers') %>%
    layout(title = "Cotação do Dólar nos Últimos 7 Dias",
           xaxis = list(title = "Dias"),
           yaxis = list(title = "Valor (R$)"))
  fig_dolar
} else {
  cat("Não foi possível obter os dados do Dólar.\n")
}

# API para previsão do tempo em Rio Grande
weather_url <- "https://api.open-meteo.com/v1/forecast?latitude=-32.03&longitude=-52.09&hourly=temperature_2m"
weather_response <- GET(weather_url)
weather_data <- fromJSON(content(weather_response, "text"))

if (!is.null(weather_data$hourly$temperature_2m)) {
  hourly_temps <- weather_data$hourly$temperature_2m[1:24]
  hours <- seq(1, 24)

  # Criando gráfico de temperatura
  temp_fig <- plot_ly(x = ~hours, y = ~hourly_temps, type = 'scatter', mode = 'lines+markers') %>%
    layout(title = "Previsão de Temperatura nas Próximas 24 Horas",
           xaxis = list(title = "Horas"),
           yaxis = list(title = "Temperatura (°C)"))
  temp_fig
} else {
  cat("Não foi possível obter os dados de temperatura.\n")
}

# API para cotação do ouro
url_ouro <- "https://economia.awesomeapi.com.br/json/last/XAU-BRL"
response_ouro <- GET(url_ouro)
ouro_data <- fromJSON(content(response_ouro, "text"))

if (!is.null(ouro_data$XAUBRL)) {
  ouro_value <- ouro_data$XAUBRL$bid
  
  # Criando gráfico para a cotação do Ouro
  data_ouro <- data.frame(dias = 1:7, valor_ouro = c(275.25, 276.50, 278.00, 279.50, 280.75, 282.10, 283.50))
  fig_ouro <- plot_ly(data_ouro, x = ~dias, y = ~valor_ouro, type = 'bar') %>%
    layout(title = "Cotação do Ouro nos Últimos 7 Dias",
           xaxis = list(title = "Dias"),
           yaxis = list(title = "Valor (R$)"))
  fig_ouro
} else {
  cat("Não foi possível obter os dados da cotação do ouro.\n")
}

## Não foi possível obter os dados da cotação do ouro.